﻿<%@ Page Language="VB" AutoEventWireup="false" AspCompat="true" %>
<% 

    Dim sPin, sDbServer, sDbName As String
    Dim sSd, sAmbiente, sAmbienteDes, sUser, sUsuario As String
    Dim sUsuarioname, sPerfil, sAcceso, iRes As String
    Dim oTmp As Object
    'Dim modoPrueba As String = System.Configuration.ConfigurationManager.AppSettings("ModoPrueba")
    Dim modoPrueba As String = "1"
    
    'modoPrueba="0"
    If modoPrueba = "1" Then
        Session("ambiente") = "3"
        Session("user") = "PRUEBA"
        Session("username") = "USUARIO DE PRUEBA"
        Session("perfil") = "3"
        Session("acceso") = "11111111111111111111111"
        'Session("dbserver") = "."
        Session("dbserver") = "Raul\Raulsql"
        Session("dbname") = "Bastanteo"
    Else
        '1. Lectura del Pin
        sUser = Request.QueryString("arg01")
        sPin = Request.QueryString("arg02")
        sDbServer = Request.QueryString("arg03")
        sDbName = Request.QueryString("arg04")

        '2. Lectura de valores del Pin
        oTmp = Server.CreateObject("sdapin.pin")
        oTmp.asigna_usuario(CType(sUser, String))
        oTmp.asigna_pin(CType(sPin, String))
        iRes = oTmp.pLeerPinAcceso(CType(sDbServer, String), CType(sDbName, String))
        If iRes = 0 Then
            sSd = oTmp.obtiene_sd
            sAmbiente = oTmp.obtiene_ambiente
            sAmbienteDes = oTmp.obtiene_ambientedes
            sUsuario = oTmp.obtiene_usuario
            sUsuarioname = oTmp.obtiene_usuarioname
            sPerfil = oTmp.obtiene_perfil
            sAcceso = oTmp.obtiene_acceso
            sDbServer = oTmp.obtiene_dbserver
            sDbName = oTmp.obtiene_basedato
            Session("user") = sUser
            Session("sd") = sSd
            Session("ambiente") = sAmbiente
            Session("ambientedes") = sAmbienteDes
            Session("user") = sUsuario
            Session("username") = sUsuarioname
            Session("perfil") = sPerfil
            Session("acceso") = sAcceso
            Session("dbserver") = sDbServer
            Session("dbname") = sDbName
            Session("user") = sUser
            Session("sd") = sSd
        End If
        oTmp = Nothing
    End If
    
    Dim v As String = String.Format("{0}|{1}|{2}|{3}|{4}|{5}", _
         Session("user"), _
         Session("username"), _
         Session("perfil"), _
         Session("acceso"), _
         Session("dbserver"), _
         Session("dbname"))
    
    Dim s As String = Bastanteo.Utilitario.FuncionesWeb.EncriptaSession(v)
    'Response.Write ("acceso " + sAcceso)
    'Response.End

    Response.Redirect("paginas/Default.aspx?s=" + s)
%>
